/ BBS in a Box 15 / BBS in a box XV-1.iso / Files / System 7 / Frontier / Delete Word Backups.sit / Delete Word Backups.rsrc / scpt_129

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 01 04 fe 00 02 00 00 | 01 02 00 00 05 8f 00 00 |........|........|
|00000010| 02 00 00 0f 06 47 65 6e | 65 76 61 00 00 00 00 00 |.....Gen|eva.....|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 09 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 00 06 78 00 00 a4 bc | 6f 65 a5 21 f5 cb 00 00 |...x....|oe.!....|
|00000050| 00 22 00 00 00 50 00 46 | 01 99 02 41 00 00 00 00 |."...P.F|...A....|
|00000060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 00 00 6f 6e 20 64 |........|....on d|
|00000080| 65 6c 65 74 65 57 6f 72 | 64 42 61 63 6b 75 70 73 |eleteWor|dBackups|
|00000090| 20 28 70 61 74 68 29 0d | 09 0d 09 63 74 72 65 63 | (path).|...ctrec|
|000000a0| 6c 61 69 6d 65 64 20 3d | 20 30 20 c7 6e 75 6d 62 |laimed =| 0 .numb|
|000000b0| 65 72 20 6f 66 20 62 79 | 74 65 73 20 72 65 63 6c |er of by|tes recl|
|000000c0| 61 69 6d 65 64 0d 09 63 | 74 6d 61 74 63 68 65 73 |aimed..c|tmatches|
|000000d0| 20 3d 20 30 20 c7 6e 75 | 6d 62 65 72 20 6f 66 20 | = 0 .nu|mber of |
|000000e0| 41 70 70 6c 65 4c 69 6e | 6b 20 70 61 63 6b 61 67 |AppleLin|k packag|
|000000f0| 65 73 20 77 65 20 66 6f | 75 6e 64 0d 09 63 6f 6e |es we fo|und..con|
|00000100| 66 69 72 6d 61 74 69 6f | 6e 64 69 73 61 62 6c 65 |firmatio|ndisable|
|00000110| 64 20 3d 20 66 61 6c 73 | 65 20 c7 63 6f 6e 66 69 |d = fals|e .confi|
|00000120| 72 6d 20 65 76 65 72 79 | 20 66 69 6c 65 20 64 65 |rm every| file de|
|00000130| 6c 65 74 69 6f 6e 0d 09 | 0d 09 6f 6e 20 64 65 6c |letion..|..on del|
|00000140| 65 74 65 69 6e 66 6f 6c | 64 65 72 20 28 66 6f 6c |eteinfol|der (fol|
|00000150| 64 65 72 29 0d 09 09 6c | 6f 63 61 6c 20 28 66 29 |der)...l|ocal (f)|
|00000160| 0d 09 09 66 69 6c 65 6c | 6f 6f 70 20 28 66 20 69 |...filel|oop (f i|
|00000170| 6e 20 66 6f 6c 64 65 72 | 29 0d 09 09 09 69 66 20 |n folder|)....if |
|00000180| 66 69 6c 65 2e 69 73 46 | 6f 6c 64 65 72 20 28 66 |file.isF|older (f|
|00000190| 29 0d 09 09 09 09 69 66 | 20 21 64 65 6c 65 74 65 |).....if| !delete|
|000001a0| 69 6e 66 6f 6c 64 65 72 | 20 28 66 29 0d 09 09 09 |infolder| (f)....|
|000001b0| 09 09 72 65 74 75 72 6e | 20 28 66 61 6c 73 65 29 |..return| (false)|
|000001c0| 0d 09 09 09 65 6c 73 65 | 0d 09 09 09 09 6c 6f 63 |....else|.....loc|
|000001d0| 61 6c 20 28 66 6e 61 6d | 65 20 3d 20 66 69 6c 65 |al (fnam|e = file|
|000001e0| 2e 66 69 6c 65 46 72 6f | 6d 50 61 74 68 20 28 66 |.fileFro|mPath (f|
|000001f0| 29 29 0d 09 09 09 09 6d | 73 67 20 28 66 6e 61 6d |)).....m|sg (fnam|
|00000200| 65 29 0d 09 09 09 09 69 | 66 20 73 74 72 69 6e 67 |e).....i|f string|
|00000210| 2e 70 61 74 74 65 72 6e | 4d 61 74 63 68 20 28 22 |.pattern|Match ("|
|00000220| 42 61 63 6b 75 70 20 6f | 66 22 2c 20 66 6e 61 6d |Backup o|f", fnam|
|00000230| 65 29 20 3d 3d 20 31 20 | c7 69 74 27 73 20 61 20 |e) == 1 |.it's a |
|00000240| 62 61 63 6b 75 70 20 6f | 66 20 73 6f 6d 65 74 68 |backup o|f someth|
|00000250| 69 6e 67 0d 09 09 09 09 | 09 69 66 20 28 66 69 6c |ing.....|.if (fil|
|00000260| 65 2e 74 79 70 65 20 28 | 66 29 20 3d 3d 20 27 57 |e.type (|f) == 'W|
|00000270| 44 42 4e 27 29 20 61 6e | 64 20 28 66 69 6c 65 2e |DBN') an|d (file.|
|00000280| 63 72 65 61 74 6f 72 20 | 28 66 29 20 3d 3d 20 27 |creator |(f) == '|
|00000290| 4d 53 57 44 27 29 20 c7 | 69 74 27 73 20 61 20 57 |MSWD') .|it's a W|
|000002a0| 6f 72 64 20 66 69 6c 65 | 0d 09 09 09 09 09 09 63 |ord file|.......c|
|000002b0| 74 6d 61 74 63 68 65 73 | 2b 2b 0d 09 09 09 09 09 |tmatches|++......|
|000002c0| 09 6f 6e 20 63 6f 6e 66 | 69 72 6d 61 74 69 6f 6e |.on conf|irmation|
|000002d0| 20 28 29 0d 09 09 09 09 | 09 09 09 6c 6f 63 61 6c | ().....|...local|
|000002e0| 20 28 73 29 0d 09 09 09 | 09 09 09 09 69 66 20 63 | (s)....|....if c|
|000002f0| 6f 6e 66 69 72 6d 61 74 | 69 6f 6e 64 69 73 61 62 |onfirmat|iondisab|
|00000300| 6c 65 64 0d 09 09 09 09 | 09 09 09 09 72 65 74 75 |led.....|....retu|
|00000310| 72 6e 20 28 74 72 75 65 | 29 20 c7 6e 6f 20 70 72 |rn (true|) .no pr|
|00000320| 6f 6d 70 74 69 6e 67 0d | 09 09 09 09 09 09 09 73 |ompting.|.......s|
|00000330| 20 3d 20 22 54 68 65 20 | 66 69 6c 65 20 d2 22 20 | = "The |file ." |
|00000340| 2b 20 20 66 69 6c 65 2e | 66 69 6c 65 46 72 6f 6d |+  file.|fileFrom|
|00000350| 50 61 74 68 20 28 66 29 | 20 2b 20 22 d3 20 69 73 |Path (f)| + ". is|
|00000360| 20 61 20 57 6f 72 64 20 | 62 61 63 6b 75 70 20 66 | a Word |backup f|
|00000370| 69 6c 65 2e 22 0d 09 09 | 09 09 09 09 09 73 20 3d |ile."...|.....s =|
|00000380| 20 73 20 2b 20 22 20 57 | 6f 75 6c 64 20 79 6f 75 | s + " W|ould you|
|00000390| 20 6c 69 6b 65 20 74 6f | 20 64 65 6c 65 74 65 20 | like to| delete |
|000003a0| 69 74 3f a8 a8 4f 70 74 | 69 6f 6e 2d 43 61 6e 63 |it?..Opt|ion-Canc|
|000003b0| 65 6c 20 74 6f 20 73 74 | 6f 70 20 73 65 61 72 63 |el to st|op searc|
|000003c0| 68 69 6e 67 2e 22 0d 09 | 09 09 09 09 09 09 72 65 |hing."..|......re|
|000003d0| 74 75 72 6e 20 28 64 69 | 61 6c 6f 67 2e 63 6f 6e |turn (di|alog.con|
|000003e0| 66 69 72 6d 20 28 73 29 | 29 0d 09 09 09 09 09 09 |firm (s)|).......|
|000003f0| 69 66 20 63 6f 6e 66 69 | 72 6d 61 74 69 6f 6e 20 |if confi|rmation |
|00000400| 28 29 0d 09 09 09 09 09 | 09 09 69 66 20 6b 62 2e |()......|..if kb.|
|00000410| 6f 70 74 69 6f 6e 4b 65 | 79 20 28 29 0d 09 09 09 |optionKe|y ()....|
|00000420| 09 09 09 09 09 63 6f 6e | 66 69 72 6d 61 74 69 6f |.....con|firmatio|
|00000430| 6e 64 69 73 61 62 6c 65 | 64 20 3d 20 74 72 75 65 |ndisable|d = true|
|00000440| 0d 09 09 09 09 09 09 09 | 63 74 72 65 63 6c 61 69 |........|ctreclai|
|00000450| 6d 65 64 20 3d 20 63 74 | 72 65 63 6c 61 69 6d 65 |med = ct|reclaime|
|00000460| 64 20 2b 20 66 69 6c 65 | 2e 73 69 7a 65 20 28 66 |d + file|.size (f|
|00000470| 29 0d 09 09 09 09 09 09 | 09 66 69 6c 65 2e 64 65 |).......|.file.de|
|00000480| 6c 65 74 65 20 28 66 29 | 0d 09 09 09 09 09 09 65 |lete (f)|.......e|
|00000490| 6c 73 65 0d 09 09 09 09 | 09 09 09 69 66 20 6b 62 |lse.....|...if kb|
|000004a0| 2e 6f 70 74 69 6f 6e 4b | 65 79 20 28 29 20 c7 69 |.optionK|ey () .i|
|000004b0| 74 20 77 61 73 20 61 6e | 20 6f 70 74 69 6f 6e 2d |t was an| option-|
|000004c0| 43 61 6e 63 65 6c 0d 09 | 09 09 09 09 09 09 09 72 |Cancel..|.......r|
|000004d0| 65 74 75 72 6e 20 28 66 | 61 6c 73 65 29 0d 09 0d |eturn (f|alse)...|
|000004e0| 09 64 65 6c 65 74 65 69 | 6e 66 6f 6c 64 65 72 20 |.deletei|nfolder |
|000004f0| 28 66 69 6c 65 2e 66 6f | 6c 64 65 72 46 72 6f 6d |(file.fo|lderFrom|
|00000500| 50 61 74 68 20 28 70 61 | 74 68 29 29 0d 09 0d 09 |Path (pa|th))....|
|00000510| 69 66 20 63 74 6d 61 74 | 63 68 65 73 20 3d 3d 20 |if ctmat|ches == |
|00000520| 30 0d 09 09 73 20 3d 20 | 66 69 6c 65 2e 66 69 6c |0...s = |file.fil|
|00000530| 65 46 72 6f 6d 50 61 74 | 68 20 28 66 69 6c 65 2e |eFromPat|h (file.|
|00000540| 66 6f 6c 64 65 72 46 72 | 6f 6d 50 61 74 68 20 28 |folderFr|omPath (|
|00000550| 70 61 74 68 29 29 0d 09 | 09 73 20 3d 20 22 54 68 |path))..|.s = "Th|
|00000560| 65 72 65 20 61 72 65 20 | 6e 6f 20 57 6f 72 64 20 |ere are |no Word |
|00000570| 62 61 63 6b 75 70 20 66 | 69 6c 65 73 20 69 6e 20 |backup f|iles in |
|00000580| 74 68 65 20 d2 22 20 2b | 20 73 20 2b 20 22 d3 20 |the ." +| s + ". |
|00000590| 66 6f 6c 64 65 72 2e 22 | 0d 09 09 64 69 61 6c 6f |folder."|...dialo|
|000005a0| 67 2e 61 6c 65 72 74 20 | 28 73 29 0d 09 65 6c 73 |g.alert |(s)..els|
|000005b0| 65 0d 09 09 69 66 20 63 | 74 72 65 63 6c 61 69 6d |e...if c|treclaim|
|000005c0| 65 64 20 3e 20 30 0d 09 | 09 09 64 69 61 6c 6f 67 |ed > 0..|..dialog|
|000005d0| 2e 61 6c 65 72 74 20 28 | 73 74 72 69 6e 67 2e 6b |.alert (|string.k|
|000005e0| 42 79 74 65 73 20 28 63 | 74 72 65 63 6c 61 69 6d |Bytes (c|treclaim|
|000005f0| 65 64 29 20 2b 20 22 20 | 62 79 74 65 73 20 72 65 |ed) + " |bytes re|
|00000600| 63 6c 61 69 6d 65 64 21 | 22 29 0d 80 00 00 00 00 |claimed!|")......|
|00000610| 00 80 00 00 00 00 00 80 | 00 00 00 00 00 80 00 00 |........|........|
|00000620| 00 00 00 80 00 00 00 00 | 00 80 00 00 00 00 00 80 |........|........|
|00000630| 00 00 00 00 00 80 00 00 | 00 00 00 80 00 00 00 00 |........|........|
|00000640| 00 80 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000650| 00 00 00 80 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000670| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000680| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000690| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006d0| 00 80 00 00 00 00 00 80 | 00 00 00 00 00 80 00 00 |........|........|
|000006e0| 00 00 00 80 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006f0| 00 00 00 00 00 00 00 00 | 00 00 00 80 00 00 00 00 |........|........|
|00000700| 00 00 00 00 00 00 00 00 | 00 00 00 00 00          |........|.....   |
+--------+-------------------------+-------------------------+--------+--------+